R/6_2_4 compression.R

In CivilEngineerUK/EC3_1_1: EC3-1-1 smartcalc Module

#' @export
eq_6.9 <- eq(function(`N_{Ed}`, `N_{c,Rd}`, output = 'UR_{compression}') {
  `N_{Ed}` / `N_{c,Rd}` %<=% 1
},
eq = '6.9', clause = '6.2.4', subclause = 1, type = 'compression')

#' @export
eq_6.10 <- eq(function(A, f_y, `\\gamma_{M0}`, output = 'N_{c,Rd}') {
  A * f_y / `\\gamma_{M0}`
}, 
eq = '6.10', clause = '6.2.4', subclause = 2, type = 'compression')